00100		DIMENSION NA(40,20),II(1000),JJ(1000),KK(1000),LL(1000)
00200	1	TYPE 15
00300	15	FORMAT(' I FORGOT EVERYTHING.'/)
00400	 	J=0
00500	
00600	2 	J=J+1
00700	199	IC=0
00800		CALL DPYCLR
00900		IQ=0
01000		IB=0
01100		IA=0
01200		IT=0
01300		DO 101 I=1,J
01400	101	NA(5,I)=0
01500	3	TYPE 4
01600	4	FORMAT(' ASK ME SOMETHING, OR TELL ME ANYTHING!'/)
01700	
01800	5	IF(J.GT.19)GO TO 1
01900	 	ACCEPT 6,(NA(I,J),I=11,40)
02000	6	FORMAT(30A1)
02100	
02200		IF(NA(11,J).EQ.'-')GO TO 1
02300		IF(NA(11,J).EQ.' '.AND.IC)GO TO 22
02400		IF(NA(11,J).EQ.' ')GO TO 3
02500		IF(NA(11,J).EQ.'+')GO TO 95
02600		IF(NA(11,J).EQ.'/')GO TO 200
02700		IF(NA(11,J).EQ.':')GO TO 201
02800		IF(NA(11,J).NE.'*')GO TO 59
02900		IF(.NOT.IC)GO TO 3
03000	  	J=J-1
03100	  	IF(IB)GO TO 99
03200	  	IF(IT.OR.IA)GO TO 79
03300		GO TO 47
03400	59	DO 7 I=11,40
03500	7	IF(NA(I+1,J).EQ.' '.AND.NA(I+2,J).EQ.' ')GO TO 8
03600		NA(1,J)=40
03700		GO TO 9
03800	200	J=J-1
03900	   	DO 202 I=1,40
04000	202	NA(I,J)=0
04100		GO TO 199
04200	201	J=J-1
04300		DO 210 I=1,J
04400	210	NA(5,I)=0
04500	   	IA=0
04600		IB=0
04700		IF(IQ)GO TO 205
04800		GO TO 80
04900	8	NA(1,J)=I
05000	
05100	9	NA(2,J)=-1
05200		IF(NA(NA(1,J),J).EQ.'?')NA(2,J)=0
05300		NA(3,J)=J
05400		NA(4,J)=0
05500		IF(IC)GO TO 44
05600		IF(NA(2,J))GO TO 2
05700	
05800		IC=-1
05900	
06000		DO 52 MB=J-1,1,-1
06100		DO 51 I=11,NA(1,J)
06200	  	IF(NA(I,J).NE.NA(I,MB))GO TO 52
06300	51	CONTINUE
06400	
06500		NA(3,J)=NA(3,MB)
06600		IQ=-1
06700	205	IT=-1
06800	   	MA=J
06900		IF(NA(4,MB).LT.1)GO TO 79
07000		I=NA(4,MB)
07100		GO TO 25
07200	79	MA=MA-1
07300		IF(MA.LT.1.AND.IT)GO TO 80
07400		IF(MA.LT.1)GO TO 40
07500	  	IF(NA(3,J).EQ.NA(3,MA).AND.NA(2,MA).AND..NOT.NA(5,MA))GO TO 34
07600		GO TO 79
07700	52	CONTINUE
07800	
07900	80	IT=0 
08000		NL=NA(1,J)-9
08100	18	M=J
08200	40	IA=0
08300	47	M=M-1
08400		IF(M.LT.1)GO TO 75
08500		IF(NA(2,M).AND.NA(5,M))GO TO 47
08600		IF(NA(1,M)-10.LT.NL)GO TO 47
08700		DO 72 I=NA(1,J)-1,11+NL,-1
08800		IF(NA(I,J).EQ.' ')GO TO 72
08900		DO 73 K=NA(1,M),11+NL,-1
09000		DO 74 L=0,NL
09100	  	IF(NA(I-L,J).NE.NA(K-L,M))GO TO 73
09200	74	CONTINUE
09300		NA(3,J)=NA(3,M)
09400		IF(.NOT.NA(2,M))GO TO 69
09500		I=M
09600		GO TO 25
09700	73	CONTINUE
09800	72	CONTINUE
09900		GO TO 47
10000	75	NL=NL-1
10100		IF(NL.LT.4)GO TO 99
10200		GO TO 18
10300	
10400	69	IA=-1
10500		MA=J
10600		IF(NA(4,M).LT.1.OR.NA(5,NA(4,M)))GO TO 79
10700		I=NA(4,M)
10800		GO TO 25
10900	
11000	34	I=MA
11100	25	NA(5,I)=-1
11200	  	TYPE 26,(NA(K,I),K=11,NA(1,I))
11300	26	FORMAT(1X30A1)
11400	128	TYPE 29
11500	29	FORMAT(/' IF I''M RIGHT,TYPE: <CR> .'/' IF I''M WRONG,TYPE:'
11600		1' ''*'' ,AND I''LL TRY AGAIN.'/' OR JUST TYPE IN THE ANSWER.'/)
11700		GO TO 28
11800	
11900	99	TYPE 27
12000	27	FORMAT(' I DON''T KNOW THE ANSWER, SO TYPE IT IN.'/)
12100		IB=-1
12200	
12300	28	J=J+1
12400		GO TO 5
12500	
12600	22	J=J-1
12700		IF(IB)GO TO 99
12800		IF(.NOT.IQ)GO TO 2
12900		NA(4,MB)=M
13000		IF(IT.OR.IA)NA(4,MB)=MA
13100		GO TO 199
13200	
13300	44	IF(IQ)GO TO 93
13400		NA(3,J-1)=J
13500		GO TO 2
13600	
13700	93	NA(3,J)=NA(3,MB)
13800		NA(4,MB)=J-1
13900		DO 94 K=1,40
14000	94	NA(K,J-1)=NA(K,J)
14100		NA(6,J)=0
14200		GO TO 199
14300	
14400	95	TYPE 37,J,IC,IQ,IT,IA,IB,MB,MA,M,NL
14500	37	FORMAT(3X'J'3X'IC'2X'IQ'2X'IT'2X'IA'2X'IB'2X'MB'
14600		1,2X'MA'2X' M'2X'NL'/1X10I4/)
14700		TYPE 88
14800	88	FORMAT(2X'LEN'2X'!!'1X'LIKE'1X'L2'1X'ANS'1X'PIC')
14900		DO 96 L=1,J
15000	96	TYPE 36,(NA(K,L),K=1,40)
15100	36	FORMAT(1X5I4,1XA5,2X4I1,2X30A1)
15200		GO TO 5
15300		END